EXAMPLE

SAVEDS ASM LONG StrObjFunc(REG(a2) Object *list,REG(a1) Object *str)
{
   char *x,*s;
   int i;

   get(str,MUIA_String_Contents,&s);

   for (i=0;;i++)
   {
      DoMethod(list,MUIM_List_GetEntry,i,&x);
      if (!x)
      {
         set(list,MUIA_List_Active,MUIV_List_Active_Off);
         break;
      }
      else if (!stricmp(x,s))
      {
         set(list,MUIA_List_Active,i);
         break;
      }
   }
   return(TRUE);
}